home *** CD-ROM | disk | FTP | other *** search
/ EDUCORP 8 / Educorp2Compilation.sit / educorp2 / Demos / OpticMac Demo / OpticMac™ / OpticMac™ / card_3026.txt < prev    next >
Encoding:
Text File  |  1989-06-08  |  3.3 KB  |  162 lines
  1. -- card: 3026 from stack: in
  2. -- bmap block id: 3801
  3. -- flags: 4000
  4. -- background id: 2725
  5. -- name: Chart
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put short name of me into bg field "Viewer"
  9.   updatemenus
  10.   global cardticks
  11.   put the ticks into cardticks
  12. end opencard
  13.  
  14. on idle
  15.   global cardticks, showfield
  16.   if showfield then
  17.     dotimecheck short name of me, cardticks, 15
  18.   end if
  19.   pass idle
  20. end idle
  21.  
  22. on mousedown
  23.   global cardticks, showfield
  24.   put false into showfield
  25.   put the ticks into cardticks
  26.   hide card field "Prompter" of card short name of me
  27. end mousedown
  28.  
  29.  
  30. -- part 7 (button)
  31. -- low flags: 00
  32. -- high flags: A000
  33. -- rect: left=97 top=64 right=78 bottom=167
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: 
  42. ----- HyperTalk script -----
  43. on mouseUp
  44.   popup "PatDoctor",8,15,8
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 12 (button)
  50. -- low flags: 00
  51. -- high flags: 2000
  52. -- rect: left=126 top=274 right=288 bottom=261
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: 
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   popup "PatCustom",8,13,12
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 13 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=126 top=290 right=304 bottom=261
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: 
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   popup "PatCustom",8,13,0
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 14 (button)
  88. -- low flags: 00
  89. -- high flags: 2000
  90. -- rect: left=126 top=258 right=272 bottom=261
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Pop Box
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   popup "PatCustom",8,13,10
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 55 (field)
  107. -- low flags: 81
  108. -- high flags: 2004
  109. -- rect: left=162 top=141 right=297 bottom=481
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Prompter
  118.  
  119.  
  120. -- part contents for card part 15
  121. ----- text -----
  122. This is a medical note that you 
  123.  
  124. -- part contents for card part 19
  125. ----- text -----
  126. 6848
  127.  
  128. -- part contents for card part 6
  129. ----- text -----
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136. -- part contents for card part 17
  137. ----- text -----
  138. jhjhkdf;0lk
  139.  
  140. -- part contents for card part 50
  141. ----- text -----
  142. hjjkj
  143.  
  144. -- part contents for card part 51
  145. ----- text -----
  146. h
  147.  
  148. -- part contents for card part 52
  149. ----- text -----
  150. h
  151.  
  152. -- part contents for card part 18
  153. ----- text -----
  154. jjkjkjlk
  155.  
  156. -- part contents for background part 19
  157. ----- text -----
  158. Chart
  159.  
  160. -- part contents for card part 55
  161. ----- text -----
  162. The Chart screen stores the patient's doctor, last visit and recall dates, medications, custom references and comments.  To continue, try selecting one of the Pop-boxes to see just how easy data entry can be, or select one of the view buttons on the bottom of the screen.  You may also select Transfer or Quit from the File menu, or select the HCC logo to return to the HCC home card.